Commodore Dossier Aktief ver- 
schijnt 12 keer per jaar. In fe- 
bruari, mei, augustus en novem- 
ber als bijlage in het hart van 
Commodore Dossier, in de overi- 
ge maanden als losse uitgave 
uitsluitend voor abonnees van 
Commodore Dossier. 
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AKTIEF 





COMMODORE IN CONCURRENTIESLAG MET IBM 


Eind januari introduceerde 
Commodore in Frankfurt de 
Commodore PC, een machine 
die volgens de specificaties 100 
procent uitwisselbaar is met de 
IBM Personal Computer. Het 
bedrijf mikt met de PC voorna- 
melijk op de markt voor zake- 
lijke gebruikers, die tot nu toe 
eigenlijk alleen werden bediend 


door de 8000-serie van Commo- 
dore. De Commodore PC moet 
inclusief BTW rond de 6000 
gulden gaan kosten, beduidend 
minder dus dan de IBM PC. 
Omdat beide apparaten uitwis- 
selbaar zijn, is er voor de 
nieuwste van Commodore met- 
een al een grote hoeveelheid 
programmatuur beschikbaar on- 


der het MS-DOS besturings- 
systeem. Volgens Commodore 
biedt de Commodore PC vooral 
qua grafische prestaties heel wat 
meer dan de IBM, bovendien 
voor een beduidend lagere prijs. 
De machine moet in maart in 
Nederland leverbaar worden. De 
juiste prijs wordt binnenkort be- 
kend gemaakt. 


OMZET COMMODORE GESTABILISEERD 


In december vorig jaar maakte 
Commodore International Ltd., 
het moederbedrijf van de natio- 
nale Commodore-vestigingen, 
bekend dat de omzet wereldwijd 
in vergelijking met het vorige 
jaar ietwat teruggelopen was. 
De explosieve groei van de afge- 
lopen jaren lijkt nu plaats te 
hebben gemaakt voor een wat 
rustiger verloop van de om- 
zetstijging. Maar Clive G. 
Smith, een van Commodore’s 


vice-presidenten, zei op een 
persconferentie in New York 
dat de ontwikkelingen geen re- 
den tot zorg geven. ”’We had- 
den weliswaar een iets hogere 
omzet in december verwacht, 
maar we zijn toch tevreden met 
de verkoopcijfers.” 
Commodore ging met zijn top- 
model, de CBM-64, afgelopen 
jaar de derde Sinterklaas- en 
Kerstmisperiode in. Het is daar- 
om nog maar de vraag of deze 


machine dit jaar nog als ’trek- 
paard’ zal kunnen fungeren. 
Met de Vic-20 en de 64 wist 
Commodore zo’n 60 procent 
van de wereldmarkt voor com- 
puters onder de 1500 gulden in 
handen te krijgen. 

Het bedrijf richt alle hoop nu 
op de nieuwe generatie machi- 
nes. Voor de hobby-markt zijn 
dat de 128, de Plus/4 en de 
C-16, voor de zakelijke markt 
de PC en de Amiga. De Com- 
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B _modore 128, die op de Consu- 
mer Electronics Show in Las Ve- 
gas werd geïntroduceerd, bevat 
in vergelijking met de 64 twee- 
maal zoveel geheugen, een inge- 
bouwde schijfeenheid en een 
aanmerkelijk krachtiger Basic. 
Over de prijs die in Nederland 
zal gaan gelden, was bij het ter 
perse gaan van dit nummer nog 


niets bekend. De Plus/4 en de 
C16 zijn in het eerste nummer 
van Commodore Dossier uitvoe- 
rig beschreven. Bij Commodore 
Nederland gelooft men dat er in 
1985 in ons land zo’n 200.000 
huiscomputers over de toonbank 
zullen gaan. Dat is net zoveel als 
het totale aantal dat tot en met 
december vorig jaar is verkocht. 


COMMODORE 
VERDRINGT SINCLAIR 


In Engeland strijden Commodore en Sinclair nog steeds in alle hevig- 
heid om een eerste plaats in de gunst van de computer-hobbyist. In 
Nederland lijkt die strijd gestreden en de overwinning is duidelijk aan 
Commodore. Dat mag tenminste worden geconcludeerd uit cijfers van 
MCN. MCN staat voor Microcomputer Club Nederland, een activiteit 
van V&D en Dixons. Bijna 90 procent van de leden van die club heeft 
gekozen voor een Commodore-64 en ruim 10 procent behelpt zich dus 
met een Sinclair computer. 


COMMODORE’S BELOOFDE 
KRAKER: AMIGA 


Als alles goed gaat, brengt Commodore in de loop van dit jaar een re- 
volutionaire machine op de markt, die de concurrentie zal doen ver- 
bleken. Dat hoor je tenminste in de wandelgangen van het bedrijf. Het 
apparaat waar het om gaat, voorlopig ’Amiga’ gedoopt, heeft als be- 
langrijkste kenmerk dat het zowel de programmatuur van Apple Mac- 
intosh als de IBM PC kan verwerken. Beide machines zijn momenteel 
buitengewoon succesvol. De Macintosh van Apple is momenteel wel 
zo ongeveer het summum van gebruiksvriendelijkheid. Met een zoge- 
heten muis kan de gebruiker, door tekeningen op het scherm aan te 
wijzen, vrijwel alle functies uitvoeren. Met name de grafische moge- 
lijkheden van de ’Mac’ zijn nog steeds ongeëvenaard door andere 
computers. 

De IBM PC is sinds zijn introductie in 1982 vooral voor zakelijke toe- 
passingen een regelrecht kassucces geworden voor de computergigant. 
Het apparaat is zo’n beetje de industrie-standaard geworden en de 
hoeveelheid programmatuur die er voor te krijgen is, past al lang niet 
meer in een flinke computershop. 

Tot nu toe werd door insiders eigenlijk aangenomen dat het ondoen- 
lijk is een redelijk geprijsde microcomputer te maken die tegelijk met 
de Macintosh en de IBM PC uitwisselbaar is. Maar Commodore blijft 
met klem beweren dat de Amiga in de eerste helft van dit jaar zal wor- 
den geïntroduceerd. Sterker nog: de Amiga biedt de gebruiker in te- 
genstelling tot de Macintosh ook nog kleurenplaatjes. Naar verluid 
moet de Amiga in Amerika minder gaan kosten dan de Macintosh van 
Apple. Wanneer de machine in Nederland zal worden uitgebracht en 
wat hij dan precies gaat kosten, is nog niet bekend. 


PLOTTERPENNEN 


BĲ TANDY GOEDKOPER 


ben. Radio Shack (Tandy) ver- 
koopt passende plotterpennen in 
sets van 3 zwarte (catalogus- 


Bezitters van de 1520 plotter 
kennen het probleem: van de 
sets met pennen is altijd de 


zwarte het eerst op. Nieuwe sets 
zijn moeilijk te krijgen en bo- 
vendien blijft de gebruiker na 
verloop van tijd met een over- 
vloed aan gekleurde pennen zit- 
ten. K. Drechsel bleek er in Hot 
News iets op gevonden te heb- 


nummer 26-1480) of 1 rode, 1 
groen en 1 blauwe (nr. 
26-1481). De sets kosten f 8,90 
(3 stuks dus) terwijl een set van 
4 pennen bij Commodore maar 
liefst f 25, — kost. 








LAATSTE NIEUWS 


Niet de introductie van de 
C-128 was de grote verrassing 
bij Commodore op de onlangs 
gehouden CES in Las Vegas, 
maar de Commodore LCD, 
een draagbare computer met, 
de naam zegt het al, een groot 
opklapbaar LCD-scherm. 

De C-128 bleek er overigens 
professioneler uit te zien dan 
verwacht, het fraaie toetsen- 
bord heeft onder meer een 
apart numeriek gedeelte. De 
machine heeft drie micro- 
processors ingebouwd en kent 
dan ook drie ‘modes’ of 
werkstanden. In de C-128 mo- 
de bedient hij zich van een 
nieuwe Basic-versie 7.0 De 
nieuwe 8-bit 8502 processor 
van deze mode is compatibel 
met de 6502 (o.a. BBC). In de- 
ze stand heeft de computer 
48K Rom voor het Basic be- 
schikbaar en 16K voor het ver- 
beterde besturingssysteem. In 
de C-64 stand, met de 6410A 
microprocessor, is de C-128 


volledig compatibel met de 
Commodore 64. Onder de der- 
de mode, met microprocessor 
Z80A draait alle software on- 
der besturingssysteem CP/M 
3.0, zoals Wordstar en dBase 
IL Op de CES werden voor de- 
ze opmerkelijke machine prij- 
zen gehoord van rond de 300 
dollar, waarmee de Plus/4 dan 
wel kan inpakken. 

De Commotlore LCD heeft een 
LCD-scherm van 80 kolommen 
bij 16 regels. In het 96K Rom- 
geheugen bevindt zich onder 
veel meer het Basic, een tekst- 
verwerker en een spreadsheet. 
De draagbare computer be- 
schikt over een ingebouwd 300 
Baud modem. Het communica- 
tieve karakter van de machine 
spreekt onder meer uit een he- 
le rist poorten aan de achter- 
zijde. Aan werkgeheugen is 
32K beschikbaar. Als prijs- 
indicatie werd voor de nieuwe 
machine 500 dollar op- 
gegeven. 


GERUCHTEN OVER 
PLUS/4 EN C-16 


De introductie van de nieuwe 
machines van Commodore, de 
C-16 en de Plus/4 komt maar 
moeizaam op gang. Binnen de 
gebruikersgroepen lijkt het ani- 
mo om met de nieuwe machines 
in de slag te gaan niet erg 
groot. Vrij algemeen is men en- 
thousiast over het fraaie Basic 
van de nieuwe machines, maar 
blijkbaar zit men met handen 
en voeten vast aan de oude ver- 
trouwde CBM-64. In dat licht 
moet waarschijnlijk ook de vrij 
plotselinge introductie van de 
128 worden gezien, een moder- 
ne, krachtiger versie van het 
succesnummer van Commodore. 
Inmiddels is er een geruch- 
tenstroom op gang gekomen 


over de C-16 en vooral over de 
Plus/4. De doorgaans zeer be- 
trouwbare Wallstreet Journal ci- 
teerde onlangs een topman van 
Commodore die een mislukte 
poging deed om de snelle ko- 
pers van de Plus/4 in Amerika 
gerust te stellen. "Als de Plus/4 
uit de markt zou worden geno- 
men,’ aldus die zegsman,’”’dan 
blijft Commodore de kopers 
van het eerste uur ondersteu- 
nen.” Dergelijke uitspraken zijn 
in de computer-business vaak 
een teken aan de wand. Overi- 
gens ontkent Commodore Ne- 
derland in alle toonaarden dat 
er sprake zou zijn van uit de 
markt nemen van de C-16 en 
Plus/4. 4 








HANDLEIDING 
BĲ DE LISTINGS 


Wie regelmatig listings uit tijdschriften of boeken intikt, kent het probleem: na uren van moeizaam turen en intikken, brengt het 
verlossende 'RUN' geen uitkomst. Het programma blijft hangen. Meestal is een knullige tik-fout de schuldige, maar begin maar 
eens te zoeken. Met een eigen ee en een eigen checksum of controle-getal-programma hoopt Commodore 
Dossier die problemen voorgoed uit de wereld te helpen. 


CONVERSIE- 
PROGRAMMA 

De beruchte besturingstekens van Com- 
modore zijn vaak de oorzaak van fouten in 
zelf ingetikte listings. De symbolen zijn in 
drukwerk vaak moeilijk te lezen en dus 
snel oorzaak van een vergissing. Met Ba- 
sic worden deze besturingstekens op- 
geslagen door middel van een getal van 0 
tot 255, de zogenaamde Commodore 
ASCll-code. Zo wordt het dia-positieve 
hartje CLEAR’ opgeslagen als het getal 
147. Wij maken van dit gegeven gebruik 
om de listings van Commodore Dossier 
makkelijk leesbaar te maken. Door het ge- 
tal dat bij een bepaald besturingsteken 
hoort in een zogenaamde characterstring 
(chr$) te zetten, krijgen we hetzelfde resul- 
taat als bij het gebruiken van een bestu- 
ringsteken. 

In boeken en tijdschriften worden twee ma- 
nieren gebruikt om de moeilijk leesbare 
Commodore-tekens te vermijden. Om bij 
het voorbeeld CLEAR te blijven: 

1. print [shift clr home]. Op het scherm ver- 
schijnt een diapositief hartje. De afspraak 
bij deze methode is dat alles tussen de 
spekhaakjes uitgevoerd moet worden en 
dus niet moet worden overgetikt. 

2. print chr$(147). Bij het RUNnen van het 
programma zorgt deze regel er voor dat 
het scherm wordt schoongemaakt. 

De characterstrings bij de besturingste- 
kens staan vermeld in het handboek. 


Voortaan zullen we in onze listings dus uit- 
sluitend gebruik maken van charac- 
terstrings. Ervaren programmeurs en ze- 
ker de programmeurs die in opdracht van 
Commodore Dossier werken, zijn trouwens 
niet anders gewend. Als u thuis echter nog 
een listing heeft liggen die op de gewone 
manier is gemaakt en u vindt dat andere le- 
zers van Commodore Dossier van dat pro- 
gramma moeten meegenieten, dan is dat 
geen probleem. Met behulp van een 
CONVERSIE-PROGRAMMA kunnen wij 
elke listing aanpassen. Natuurlijk bespaart 
u de redactie een hoop werk als u zelf de 
conversie alvast uitvoert. 


GONTROLE- 
PROGRAMMA 

Dank zij het conversie-programma dat 
besturingstekens vervangt door charac- 
terstrings, zullen de listings in Commodore 





Dossier voortaan een stuk leesbaarder zijn. 
Dat neemt niet weg dat een tik-foutje nog 
snel is gemaakt. Het vervelende van die tik- 
fouten is dat ze pas worden ontdekt als het 
programmanietblijktte lopen. Dat probleem 
wordt uit de wereld geholpen door het on- 
derstaande controle-programma, in het En- 
gels meestal Checksum genoemd. 

Het controle-programma controleert aan de 
hand van een letter eneen cijfer die u aan het 
eind van elke regel intikt, of de betreffende 
regel correct is ingevoerd. Is er een fout ge- 
maakt bij het intikken, dan verschijnt op het 
scherm de zin: FOUT IN REGEL en wordtde 
betreffende regel niet in het programma op- 
genomen. Dat betekent dus overtikken. Het 
controle-getal-programma dat hieronder is 
afgedrukt, moet dus altijd eerst worden gela- 
den en geRUNd voordat u met het intikken 
van een listing begint. 

Het feitelijke controlegetal bestaat uit een 
letter en een cijfer, voorafgegaan door 
[shift][spatie]. 

Dat lijkt misschien wat minder elgant, om- 
dat we met ons conversie-programma juist 
die spekhaakjes uit de listings gebannen 
hebben, maar in de praktijk zal blijken dat 
door deze methode het controle-getal di- 
rect als zodanig herkenbaar is. Het tegelijk 
indrukken van shift en spatie ziet er op het 
scherm uit als een gewone spatie, de com- 
puter weet nu echter dat het controlegetal 
er aan komt. 

Om u zoveel mogelijk handenarbeid te 
besparen, hebben we aan het programma 


CHECKSUMPROGRAMMA 


1 rem checksumprogramma 

2 rem voor de commodore 64 
3 rem 

4 rem peter de zeeuw 

5 rem 


30 sys49155:new 





LET WEL: [shift][spatie] MOET U NIET INTIK- 


KEN, DAT MOET U DOEN. VOORDAT U DE 


LETTER EN HET CIJFER INVOERT, MOET U 
TEGELIJKERTIJD DE SHIFT-TOETS EN DE 
SPATIEBALK INDRUKKEN. 





nog een paar snufjes toegevoegd. Zo mo- 
gen spaties die niet tussen aanhalingste- 
kens staan, worden weggelaten, dat levert 
geen foutmelding op. Het gebruik van af- 
kortingen wordt ook niet bestraft. PRINT 
kan bijvoorbeeld worden afgekort met ?. 
Ons slimme controle-programm begrijpt 
dat en geeft geen foutmelding. 

Het feitelijke controle-getal bestaat uit een 
letter en een cijfer. Dat noemen we hexa- 
decimale getallen. Die gebruiken we onder 
meer om de eenvoudige reden dat ze kor- 
ter zijn dan gewone decimale getallen. 
Als u klaar bent met het intikken van een 
programma-listing, kunt u de controle- 
functie uitschakelen met de instructie SYS 
49152. Het aanzetten gebeurt met SYS 
49155. 


NOTA BENE 


Het controle-programma is uitsluitend bedoeld voor 


de CBM-64. Aan een aanpassing voor de Vic 20 
wordt gewerkt. We willen even bekijken of daar 


voldoende belangstelling voor is. Dat zal uit de 
post moeten blijken. Zodra de nieuwe machines 
van Commodore een beetje onder de mensen zijn, 
zullen beide programma’s in elk geval voor die ma- 
chines worden aangepast. 





10 fori=49152to49412:reada:pokei,a:x=xtarnext 
20 ifx<>31526thenprint"fout in dataregels":stop 


49152 data76,83,228,162,0,189,17,192,157,2,3,232,224,4,208 
49167 data245,96,21,192,46,192,32,96,165,134,122,132,123,32 
49181 datall5,0,170,240,243,162,255,134,58,144,6,32,124,165 
49195 data76,225,167,32,107,169,166,122,202,232,189,0,2,240 
49209 data81,201,160,208,246,169,0,157,0,2,232,32,221,192 
49223 datal76,66,232,32,221,192,176,60,32,124,165,132,11,169 
49237 data0,133,15,165,20,69,21,133,251,160,5,185,251,1,72 
49252 data201,34,208,6,165,15,73,255,133,15,36,15,48,7,104 
49267 data201,32,240,7,208,1,104,69,251,133,251,200,196,11 
49281 datal44,221,240,219,165,251,197,252,240,54,162,0,189 
49294 data206,192,240,6,32,210,255,232,208,245,169,9,141,5 
49308 data212,169,0,141,6,212,169,15,141,24,212,169,25,141 
49322 datal,212,169,177,141,0,212,169,17,141,4,212,32,196 
49336 datal92,169,16,141,4,212,76,21,192,76,164,164,24,165 
49350 datal62,105,30,197,162,208,252,96,70,79,85,84,32,73 


49364 data78,32,82,69,71,69,76,13,0,6,252,6,252,6,252,6,252 
49381. datal89,0,2,240,23,56,233,48,144,18,201,10,144,8,233 
49396 data7,144,10,201,16,176,7,101,252,133,252,144,1,56,96 








49411 data32,202 








COMMODORE DOSSIER 37 


COMMODORE DOSSIER 38 


TIPS & TRUCS 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. deerd viezen van binnen- 
en buitenlandse professionals. Lezers helpen lezers. 
Het zijn de kleine dingen die het doen. Tips & trucs 
af lezers worden, indien geplaatst, beloond met 50 
gulden. 


DUMPEN, PLAKKEN EN 
VRAGEN 


RANDOM VRAGEN 


Omschrijving: U heeft een pro- 
gramma gemaakt dat de ge- 
bruiker een aantal vragen stelt. 
U wilt dat deze vragen niet el- 
ke keer in dezelfde volgorde 
gesteld worden en dat geen 
enkele vraag een tweede keer 


aan de orde komt. De on- 
derstaande demonstratie leert 
u hoe u dit aan moet pakken. 
Instructie: Bestudeer het vol- 
gende programma nauwkerig 
en pas het naar eigen behoef- 
te aan: 


In het interview met Jan van 
Die (pagina 8) is sprake van 


een boek dat Van Die en colle- 


ga Volders binnenkort uitbren 


SCREENDUMP 
Omschrijving: Met het on- 
derstaande programma kunt u 
alles wat op uw beeldscherm 
staat naar de printer sturen. 


SCREENDUMP 


spatie>98 


ie>92 


gen. In overleg met uitgever 


Kluwer, koos Van Die een drie- 


tal pagina's uit het boek, die 
we hier integraal overnemen. 


Instructie: Neem het volgende 
programma nauwkeurig over 
en SAVE het voor u het in 
werking stelt. 





0 rem sereendump<shift>/<spatie>8f 

10 printchr$(19);<shift>/<spatie>66 

20 zz=(peek(210))*256<shift>/<spatie>ca 

30 open3,3<shift>/<spatie>ad 

40 openl,4<shift>/<spatie>9e 

50 fory=0Oto24:bs=""<shift>/<spatie>24 

60 forx=0to3:as=""<shift>/<spatie>24 

70 ifpeek(zzt((y*40)te))>127thenget#3,as:b 
S=bStchr$(18)ta$tehrs(146):gotollO<shift>/< 


‘ 80 getfk3,a$<shift>/<spatie>a8 
90 ifas=chrs(13)thenas=" 


“<shift>/<spat 


100 b$=b$+aS<shift>/<spatie>l9 


RANDOM VRAGEN 


10 fori=0to4<shift>/<spatie>d0 

20 reada$(i)<shift>/<spatie>be 

30 next<shift>/<spatie>9c 

40 data"vraag 1","vraag 2","vraag 3","vraag 
4","vraag 5"<shift>/<spatie>f9 

50 v=5<shift>/<spatie>e3 


60 x=rnd(-ti)<shift>/<spatie>da 

70 ifv=0thenend<shift>/<Sspatie>3e 

80 x=rnd(0)*5<shift>/<spatie>a9 

90 ifas(x)=""then70<shift>/<spatie>ff 
100 printas(x)<shift>/<spatie>cl 

110 a$(x)=""<shift>/<spatie>e0 

120 v=v-l<shift>/<spatie>50 

130 goto70<shift>/<spatie>0c 





MERGE 

Merge staat voor samenvoe- 
gen van programma’s. In het 
Basic van de Commodore 64 
is hiervoor geen commando 
beschikbaar. Met de volgende 
korte machine-code routine 
kan het toch. Om deze routine 
te gebruiken moet eerst het 
eerste gedeelte van het pro- 


SYS 40448 in. Daarna laadt u 
het tweede programma en tikt 
vervolgens SYS 40468 in. De 
programma’s zijn nu samenge- 
voegd. Vergeet niet de routine 
uit het geheugen te halen na- 
dat u hem heeft gebruikt. De 
regelnummers van het tweede 
programma moeten hoger zijn 







110 nextx<shift>/<spatie>b4 

120 print#l,b$<shift>/<spatie>9b 
130 nexty<shift>/<spatie>59 

140 closel<shift>/<spatie>ld 





gramma worden geladen, 
waarna deze routine wordt toe- 
gevoegd en het geheel wordt 


dan die van het eerste. Als dat 
niet het geval is, werkt de rou- 
tine wel, maar de nummering 











150 close3<shift>/<spatie>05 





APPEND (ALGEMEEN) 


Omschrijving: Door middel van 
onderstaande techniek kunt u 
uw favoriete subroutines aan 
elk willekeurig programma toe- 
voegen. 

Instructie: U moet er van te 
voren voor zorgen dat het 
twee programma hogere regel- 
nummers heeft dan het eerste. 
Vervolgens voert u de volgen- 
de stappen uit: 

1) laad het eerste programma. 
2) geef de computer de op- 
dracht: 

PRINT PEEK(43)PEEK(44) 
PEEK(45) 

Schrijf de getallen die de com- 
puter meldt op. 


3) Gebruik het derde getal om 
de volgende opdracht te 
vinden: 

getal 3>2: 

POKE43,PEEK(45) — 2 

getal 3 =2:POKE43,0 

getal 3=1: 
POKE43,255:POKE44, 
PEEK(46) — 1 

getal 3=0: 
POKE43,254:POKE44, PEEK 
(46) — 1 

4) laad het tweede pro- 
gramma. 

5) POKE 43 met het eerste en 
POKE 44 met het tweede op- 
geschreven getal. 

6) geef de opdracht LIST. 


geRUNd. Vervolgens tikt u wordt een rotzooitje. 


MERGE 


1000 rem merge voor cbm 64<shift>/<spatie>76 

1010 :<shift>/<spatie>ch 

1020 fori=40448to40478:reada:pokei,a:next<shi 
Ét>/<spatiev>ef 

1030 data216,56,173,45,0,233,2,141,43,0,173, 

4A6<shift>/<spatie>ab 

1040 data0,141,44,0,96,234,234,234,169,1,141, 
43<shift>/<spatie>89 

1050 data0,169,8,141,44,0,96<shift>/<spatie> 

a0 








PROGRAMMAS OP 
CASSETTE OF SCHIJF 

Als blijkt dat daar bij de lezers van Commodore Dossier behoefte 
aan bestaat, worden een aantal programma’s uit Commodore Dos- 
sier op cassette of schijf uitgebracht. Het eerste programma dat 
daarvoor in aanmerking komt, is natuurlijk onze tekstverwerker. 
Maar we denken ook aan een cassette of een schijf met een aantal 
kortere programma’s zoals onze checksum, een conversieprogram- 
ma, de sprite-editor en dergelijke. Wij wachten even op uw reactie. 





CLEAR 

Het volgende programma werd 
opgestuurd door F. Gijsbertse 
uit Amersfoort, het spaart vari- 
abelen voor de CLEAR-functie. 
Een programma met veel vari- 
abelen kan erg langzaam wor- 
den. Helaas worden alle varia- 


wordt. Dit programma zet de 
variabelen in aparte geheugen- 
plaatsen zodat ze met CLR 
niet worden gewist. Met PRINT 
wordt de variabele in het 
schermgeheugen gezet, waar- 
uit ze altijd makkelijk kunnen 
worden teruggelezen. Het pro- 


gramma kan ook van pas ko- 
men bij gebrek aan geheugen- 
ruimte. Een programma wordt 
met NEW gewist nadat de va- 
riabelen in het schermgeheu- 
gen zijn opgeslagen. Als met 
LOAD het volgende program- 
ma wordt geladen, kunnen de 


‘oude’ variabelen uit het ge- 
heugen worden gelezen. 

Na het RUNnen van dit pro- 
gramma zijn de variabelen uit 
Z, Yen X$ verdwenen, maar 
zijn de ingegeven variabelen in 
V1, V2 en VA$ bewaard ge- 
bleven. 


belen gewist als geCLEARD 


CLEAR 

l rem met het geven van het ‘clr° commando verdwijnen de variabelen<shift>/Xspati 
e>99 

2 rem door een handigheidje blijven sommigen gespaard<shift>/<spatie>89 

3 rem dit wordt gedaan door ze weg te zetten in het geheugen<shift>/<spatie>96 

4 rem de 1000 bytes van het scherm zijn hiervoor het meest geschikt.<shift>/<spat 
ie>e4 

5 rem door een eenvoudige print wordt de variabele in het geheugen<shift>/<spatie 
>de 

6 rem gezet. het scherm heeft het voordeel dat niet ‘gepoked’ hoeft<shift>/<spati 
e>fa 

7 rem te worden.<shift>/<spatie>b2 

8 rem bij kleine getallen (<0.01) werkt het niet door de e-notatie.<shift>/<spati 
e>f5 


9 rs<shift>/{spatie>33 
10 z=12:y=3.98rxs="test"<shift>/<spatierce 
20 input"va #l";vl<shift>/<spatie>e8 
30 input"va #2";v2<shift>/<spatie>e2 
„40 input"uw naam ";vaS<shift>/<spatie>84 
50 printehr$(147)s<shift>/<spatie>64 
60 printehrS(31): rem achtergrond kleur<shift>/Xspatie>c8 
62 :<shift>/<spatie>04 
65 rem de variabelen worden nu n de achtergrond kleur geschreven<shift>/<spatie> 


66 rem en zijn dus onzichtbaar.<shift>/< spatie>e0 

68 :<shift>/<spatie>7e 

70 printvl : rem schermgeheugen # 1064 is 

het begin vd regel waar vl staat<shift>/<spatie>47 

80 printv2 rem idem.# 1104<shift>/<spatie>3a 

90 printva$S: rem idem # 1l144<shift>/<spatie>63 

100 elr<shift>/<spatie>f8 

110 i=0<shift>/<spatie>a5 

120 a=peek(1064+i):zas=chr$(a)<shift>/<spatie>c2 

130 vlS=vlStaS<shift>/<spatie>ff 

140 ifas<>chr$(32)ori=0Otheni=itl:sgotol20<shift>/<spatie>d?2 
150 i=0<shift>/<spatie>5d 

160 a=peek(1104+i)ztas=chrs(a)<shift>/<spatie>ld 

170 v2$=v2$t+as<shift>/<spatie>d?7 

180 ifas<>chr$(32)ori=0Otheni=itl:gotol60<shift>/<spatievee 
190 i=0<shift>/<spatie>75 

200 a=peek(1144+i):zas=chr$(at64)<shift>/<spatie>d9 

210 va$=va$taS<shift>/<spatie>af 

220 ifas<>chrs(32+64)theni=zitl:goto200<shift>/<spatie>50 
221 :<shift>/<spatieve?7 i 

225 rem voor letters is de peek-waarde niet gelijk aan 
patie>29 

226 rem hierdoor ontstaan problemen met de chr$-funktie<shift>/<spatie>72 
227 rem het verschil is 64<shift>/<spatie>31l 

228 :<shift>/<spatie>de 

230 vl=val(vls)<shift>/<spatie>b4 

240 v2=val(v2s)<shift>/<spatie>a2 

250 i=len(vaS)<shift>/<spatie>f£0 

260 vaS=left$(vas,i-l):rem hetteken met code 32464 dumpen<shift>/<spatie>42 
270 printchr$(147):printehrs$ (154) <shift>/<spatie>37 

280 print'"z="!"z,"y=!!y, "xS=!"xS<shift>/<Sspatie>bd 

290 print<shift>/<spatie>ba 
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de ascii-waarde<shift>/<s 





LISTINGS VAN LEZERS 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De delle bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 

besturingstekens zijn voorzien. De beste en ramma's uit deze rubriek kunnen in danae komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


VOETBALPROGHNOSE 

Met dit programma van Paul voet worden gevolgd. Elk vervolgens een prognose voor lier invullen. Tenzij u tot de 
Spruit en Cees Duivenvoorde weekend na Studio Sport moe- de uitslagen van de volgende mensen behoort die denken 
uit Beverwijk kan de vader- ten de uitslagen worden inge- week. Aan de hand van die meer verstand van voetballen te 
landse voetbalcompetitie op de voerd. Het programma doet prognose kunt u uw totoformu- hebben dan de Commodore 64. 


VOETBALUITSLAGEN 


10 poke53280,0:poke53281,0:poke646,5:fork=49152to49188:readg:pokek,g:next<shift>/ 
<spatie>9f 

20 printchr$(147)"voetbalprognose door p. spruit'";<shift>/<spatie>69 

21 forxx=lto5:printehr$(17);rnext:iprint<shift>/<spatie>c5 

30 print"l laden gegevens van tape/disk":print"2 saven gegevens naar tape/disk"<s 
hift>/<spatie>6f 

40 print"3 prognoses maken":;print"4 invoeren uitslagen":print"5 ranglijst"<shift> 
/<spatie>ab 

50 ifa=0thenprint"6 elftallen invoeren"<shift>/<spatie>21 

60 geta$:ifval(as)<lorval(as)>6or(val(as)=banda>0)then60<shift>/<spatie>a6 

70 onval (a$)gosubl000,2000,3000,4000,5000,6000:goto20<shift>/<spatie>61 

100 datal69,4,133,100,169,80,133,99,160,40,177,99,160,0,145,99,166,99,224,11l1l<shi 
ft>/<spatie>c7 

110 data240,8,230,99,208,238,230,100,208,234,166,100,224,7,208,242,96<shift>/<spa 
tie>dc 

150 dima$(a),ala),bla,a),cla),ds(a),ela),f(a),gla),h(a):return<shift>/<spatie>c0 
1000 printchr$(147) "laden gegevens van tape of disk ?":clr<shift>/<spatie>1l6 

1010 geta$r:rifas="t"thenprintehrs(19)tab( 23)" “:b=lsgotol040<shift>/<spat 
ie>31 

1020 ifas="d"thenprintchrs(19)tab(19) "disk ":b=8:gotol040<shift>/<spatie 
>c4 

1030 gotol0l0<shift>/<spatie>8b 

1040 input'onder welk file-nummer staan de gegevens";f:qs="data"tstrs(_£)<shift>/< 
spatie>2e 

1041 ifb=8theng$=q$+",s,r"<shift>/<spatie>e8 

1045 iff>l2J7orf<lthenprintchrs(1l45)chrs(l 45);:gotol040<shift>/<spatie>9e 

1050 open2,b,0,q$:input#2,a:gosubl50:fork=ltoa:input#2,as(k):next:fork=ltoa<shift 
>/<spatie>cd 

1055 input#2,alk):next:fork=ltoarinput#2,c(k):next:fork=ltoa:input#2,g(k) :next<sh 
ift>/<spatie>36 

1060 fork=ltoa:forl=ltoa:input#2,bS$:b(k,l)=val(b$) :next:inext<shift>/<spatie>99 
1070 close2:gotol0<shift>/<spatie>0a 

2000 ifa=0thenprintchr$(147)"er zijn nog geen gegevens ":fort=lto2000:next:return 
<shift>/<spatie>f2 

2010 printchr$(147)"saven gegevens naar tape of disk ?"<shift>/Xspatie>ce 

2020 geta$S:ifas="t"thenprintehrs(19)tab(24)" “:b=l:goto2050<shift>/<spat 
ie>26 

2030 ifas="d"thenprintchrs(l9)tab( 20) "disk “:b=8:goto2050<shift>/<spatie 
>da 

2040 goto2020<shift>/<spatie>76 ‚ 

2050 input"onder welk file-nr. moeten de gegevens worden gesaved";f<shift>/<spat 
ie>f9 

2055 iff>l2Jorf<lthenprintchrs(1l45)chrs(145);:goto2050<shift>/<spatie>82 

2056 q$="data"+tstrs(f)<shift>/<spatie>fe 

2057 ifb=8thengS=qS+",s,r"<shift>/<spatie>fc 

2060 open2,b,l,g$:print#2,a:fork=ltoa:print#2,a$(k):next:fork=ltoa<shift>/<spatie 
255 

2065 print#2,alk):next:fork=ltoa:print#2,c(k):inext:fork=ltoa:print#2,g(k) :next<sh 
ift>/<spatie>28 

2070 fork=ltoa:forl=ltoa:a$=str$(b(k,1)):print#2,aS:next:inext<shift>/<spatie>ba 
2080 close2:return<shift>/<spatie>0e 

3000 ifa=0then2000<shift>/<spatie>5e 

3010 printchr$(147) "prognoses maken":printchr$(17) "hoeveel wedstrijden";<shift>/< 
spatie>e9 

3:01:5 inputa$:ifval(as)=0thenreturn<shift>/<spatie>97 
3020 c=val(as):printchrs(17) "wedstrijd 
printchr$(17)<shift>/<spatie>7a 
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prognose":fork=ltoc: 








3030 ted erg engere ir einen 
3035 form=ltoa:ifleft$(as(m),len(as))<>aSthennext:goto3030<shift>/<spatie>51 
3040 et “tab(20);:inputas:forl=ltoa<shift>/<spatie>55 
3050 iflefts(as(l), ee goto3040<shift>/<spatie>f6 
3060 printchr$(145)tab( 20) ;as( “sifl=mthen3040<shift>/<spatie>89 
3070 d=g(m)*a(m)/3sforn= Ltoa: d= nn 
3080 e=g(1)fall)/3:forn=ltoa:se=etb(l,n)ta(n):next:ifd>etl.4thenas="1"<shift>/<spa 
tie>c6 
ifd<e*.75thenas="2"<shift>/<spatie>e5 
printehrS(145)tab(37);saSrnextk<shift>/<spatie>5c 
"chrs(17)" ‘spatie’ om terug naar menu te keren"<shift>/<spatier>ec 
geta$:ifas<>" "then3ll0<shift>/<spatie>bc 
return<shift>/<spatie>b2 
ifa=0Othenprintchr$s(147)"er zijn geen ploegen ingevoerd":fort=lto2000:next:re 
turn<shift>/<spatie>f7 
4010 printchr$(147) "invoeren uitslagen"<shift>/<spatie>b0 
4015 printchr$(1l7)ehr$(17)"hoeveel uitslagen wilt u invoeren";:inputaS<shift>/<sp 
atie>8b 
4020 c=val(as):ifc= eten 
4025 printehr$(17)ehr$s( jehesl )zal=0:fork=ltoes<shift>/<spatie>b3 
4030 ette ee ae enden 
4040 iflefts(as(l),len(as) de ree er 
4045 ifl>athenprintchrs( Le goto4030<shift>/<spatie>b2 
4050 printehr$(145)k": "as " “tab(18)"-";:inputasS:form=ltoa<shift>/<spatie>34 
4060 iflefts(as(m) ,len(as)) EE EN iet, rennend 
4065 {maor lenthenitböeeni frs /denatiesTd 
4070 printchr$(145)k":"as(l);tab(18)"-"as(m)" "tab(29);:inputa$:d=val(as)<shift> 
/<spatie>6be 
4075 printchr$(145 er "<shift>/<spatie>04 
4080 printehr$(145)k":"as( stab(18)"=-"a$(m);tab(29)" "dd" -";tab(33);:inputas<shi 
ft>/<spatie>f6 
4085 e=val(las)<shift>/<spatie>ac 
4090 printchrs(145)k"s"as{(1)stab(18)"=tas(m);tab(29)" Pd" -Fytabl33)" Tel MESALEE 
>/<spatie>58 
print"ok(j/n)"<shift>/<spatie>46 
getaS<shift>/<spatie>34 
ifas="n"thenprintchrs(145)" "chr$(145):goto4030<shift>/<spatie>a8 
ifas<>"j"then4095<shift>/<spatie>l8 ‚ 
präntchr$(145)" :printchr$(145);<shift>/<spatie>32 
g(l)=g(1) +1: gu (m Ee e(l)j=ell)+d-e: e(m)=e(m)te-d<shift>/<spatie>2e 
ifd>ethena(l) +2sb(l,m)=b(l,m)+2<shift>/<spatie>b8 
ifd<ethena(m Et +2 en teen 
ifd=ethena(m)=a +l:sall)=zall)+l:b(l,m)=b(l,m)+l:b(m,1)=b(m,1)+1<shift>/<spa 
tie>97 . 
4140 nextk:return<shift>/Xspatie>4l 
5000 ifal=lthen5070<shift>/<spatie>46 





)=g (m 
all} 
(m) 
(m) 


5005 ifa=0thenprintchrs(147)"er zijn nog geen gegevens":fort=lto2000:nextsreturns 


shift>/<spatie>9b 

5010 printehrS(147) "even geduld a.u.b"r:print"de ranglijst wordt nu berekend":al=l 
<shift>/<spatie>d5 

5020 fork=ltoa:ds(k)=aS(k):zelk)=alk):f(k)=clk):h(k)=g(k):inext<shift>/<spatie>90 
5030 s=0:fork=2toarifds(k)<ds(k-1)thengosub5200<shift>/<spatie>44 

5035 next:ifs=lthen5030<shift>/<spatie>fa 

5040 s=0:fork=2toa:iff (k)>f(k-1)thengosub5200<shift>/<spatie>50 

5045 next:ifs=lthen5040<shift>/<spatie>e3 

5050 s=0:fork=2toarifh(k)<h(k-1)thengosub5200<shift>/<spatie>58 

5055 nextr:ifs=lthen5050<shift>/<spatie>e8 

5060 s=0:fork=2toa:ifelk)>elk-1)thengosub5200<shift>/<spatie>24 

5065 nextr:rifs=lthen5060<shift>/<spatie>9d 

5070 printchr$(147)" elftal pnt. wdstr. dls. “<shift>/<spatie>df 
5080 fork=ltoa:ifk>20then5130<shift>/<spatie>8e 

5090 ifk<lOthenprint" ";<shift>/<spatie>a6 

5095 printktab(2);ds(k)tab(20)elk)tab(27)h(k ah (3 4A)E (Kk) snext<shift>/Xspatie>bc 
5100 printchr$(19);:forxx=lto23:printehr$(17);:next<shift>/<spatiev>ee 

5105 print" ‘spatie’ om terug naar menu te nde eg en led earn 

5110 getaS:ifas<>" “then5ll0<shift>/<spatie>75 

5120 return<shift>/<spatie>9a 

5130 printehr$(19):forxx=lto23:printehrS(17);r:nextxx<shift>/<spatie>34 

5135 print" ‘spatie’ voor het volgende elftal"<shift>/<spatierch 

5140 getaS:ifas<>'" re 

5150 sys49152:printechrs(19);:forxx=lto2l:iprintehr$(17);:nextxx:goto5090<shift>/<s 
patie>39 

5200 s=l:e$=ds(k):ds(k)=ds(k-l):ds(k-l)=ec$:e=zelk-l):telk-l)=elk)rtelk)=c<shift>/<sp 
atie>94 

5210 e=f(k-l):f(k-l)=f (k) rf (k)=ere=h(k-l)j:h(k-l)=h(k) :h(k)=erreturn<shift>/<spati 
Greû 

6000 printchrsS(147)"elftallen invoeren":<shift>/<spatie>43 

6001 printchr$(l7)echr$(17) "hoeveel elftallen";:inputa: ÌFaX3thens000sshifts/espati 
eru2 

En gosubl50:fork=ltoa:print"elftal ";k;:inputas(k):next:ireturn<shift>/<spatie 

2 
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COMMODORE DOSSIER AKTIEF PROGRAMMA'S 





Maandelijkse rubriek met listings van programma’s die waard zijn in uw programma-bestand te worden opgenomen. 

Alle iid zijn voorzien van een AE zodat fouten bij het intikken vrijwel zijn uitgesloten. Het controle-getal 
wordt in elke regel vooraf gegaan door Lenen ie]. Deze twee woorden moet u niet intikken, maar u moet tegelijkertijd de 
shift-toets en de spatiebalk indrukken. Op het scherm ziet dat uit als een gewone spatie. Voor nader informatie over het 
controle-getal, zie de handleiding elders In dit nummer. 


BIORITME 

Het volgende Bioritme- met wie u op pagina 9 een in- alleen tot zijn recht als er een scherm. De conclusies die u 
programma werd ons ter be- terview kunt lezen. Dit is het printer. op de computer is aan- aan de uitslag van een Bio- 
schikking gesteld door de pa- programma dat Toon zelf in gesloten. De uitgebreide uit- ritme-uitdraai verbindt, zijn uiter- 
ragnost Toon Hoendervangers _ zijn praktijk gebruikt. Het komt draaien vertellen meer dan het aard voor uw eigen rekening. 


BIORITME 


poke53280,15:poke53281,15<shift>/<spatie>31 
printehrSs(l47)ehrs(28)ehrs(l4)ehrs(17);<shift>/<spatie>8d 
printchrs(18)" me n u "<shift>/<spatie>70 
print,chr$(3l)ehrs(l7)ehrs(17)"1l. bioritme (uitgebreid)"<shift>/<spatie>60 
print,chr$(17)"2. bioritme (kort) "<shift>/Xspatie>4a 
print,chr$(17)"3. einde":pokel98,0:waitl98,1<shift>/<spatie>27 
gethlS:onval(hlSs)goto50,1360,1700<shift>/<spatie>6d 
open4,4:print#4,chr$(27):printt#4,chrs(27) <shift>/<spatie>81 
dimpr$(3l),m$(12),dS(7),kS(20)::fori=ltol2:readms(i):next:fori=lto7:readdSs(i)< 

shift>/<spatie>5d 

70 next:sfori=lto40:sS=sS+"-"snextiss=0<shift>/<spatie>la 

80 prs="(-) (0) (+) ":gosub90:gotol30<shift>/<spatie>cc 

90 fori=lto3l:prs(ij="-"snextsprs(l6)=chr$(33) sreturn<shift>/Xspatie>le 

100 datajanuari 31,februari 29,maart 3l,april 30,mei 31,juni 30,juli 31<shift>/<s 

patie>f4 - 

110 dataaugustus 31l,september 30,october 31,november 30,december 31<shift>/<spati 

e>f0 

120 datazondag ‚maandag ‚dinsdag ‚woensdag ‚donderdag,vrijdag ‚zaterdag ‚<sh 

ift>/<spatie>d4 

130 readx:printchr$(147);:te=l:gosub920:printechrS(147);:gosub920rhu=l:te=0<shift> 

/<spatie>f8 Í 

140 printchrs(28)ehrs(l9jehrs(1l7)ehrs(1l7)jehrs (17) "welke maand wilt u'"chrs(31l)<shi 

Ét>/<spatie>77 

145 print'"(A-12) “enrs(ClIl)j. "s<shift>/<spatie>f2 

150 forxx=ltol0:sprintchrs(157);snextxx:inputissm=val(is)<shift>/<spatie>5a 

160 d=l:ifm<lorm>l2thenprinttab(8)chr$(145)"fout":fori=lto99tsnext:igotol40<shift> 

/<spatie>f6 

170 fori=ltolen(m$(m)):sifmids(mS(m),i,l)=" "“"thenl90<shift>/<spatie>88 

180 next<shift>/<spatie>36 

190 printtab(8)chrs(145)lefts(mS(m),i)<shift>/<spatiev>ea 

200 printchr$(28)ehrs(19);:forxx=lto6:printehrs(17);rsnextxx<shift>/<spatie>22 

205 print'"van welk jaar"chr$(3l):print"[na 1581] "echrs(191)" "s<shift>/<s 

patie>87 

210 forxx=ltoll:sprintehrs(157);snextxxsinputissj=val(is)<shift>/<spatie>18 

220 ifis=chr$(191)thenprinttabl(lll)ehrS(145)"fout':fori=ltol000:next:goto200<shift 

>/<spatie>d0 i 

230 ifj<l00Othenj=j+1900<shift>/<spatie>l2 

240 ifj<158lthen printtab(ll)echr$(145)"fout":fori=ltol000:next:goto200<shift>/<sp 

atie>28 

250 printtab(l0)echrs$(145) j<shift>/<spatie>54 

260 printchr$(28)ehrs(17)"wät is uw naam"chrs(3l):inputnS<shift>/<spatie>f8 

270 printchrs(28)chrs(17)ehrs(17) "wat is uw geboortedag "<shift>/<spatie>4l 

275 print" (dd,mm,5jj)"echr$(31):inputdd$,mm$, jjS<shift>/<spatie>f5 

280 dd=val(dds):ifdd<lordd>3lthen285<shift>/<spatie>e3 

281 goto290<shift>/<spatie>aa 

285 poke214,ll:printchr$(l45)chr$(18) "geboortedag fout"chr$(146):gosub360<shift>/ 

<spatie>l4 

286 goto270<shift>/<spatie>a3 

290 mm=val(mm$):ifmm<lormm>l2then295<shift>/<spatie>d9 

291 goto300<shift>/<spatie>98 
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295 214,1ll:"echrs(l45)ehrs(18) "ma ingave fout"chr$(146):gosub360<shift>/<Xspatie>a7 
296 goto270<shift>/<spatie>95 fi 
300 jj=val(jjs):ifjj<l0Othenjj=jj+1900<shift>/<spatie>fb 

310 ifjj>jthenpoke21l4,ll:printchrs$(145) "nog niet geboren":gosub360:goto270<shift> 
/<spatie>3b 

320 printchr£s(145)" "<shift>/<spatie>2e 

| 330 hu$=str$(dd)+" "+left$ (m$ (mm) ,len(m$(mm))-2)+strs(jj)<shift>/<Xspatie>f4 

340 printchr$(145)hus:ifhu=lthengosub940<shift>/<spatie>3b 

350 ddS="";mms="";i jj" "zige" "ri goto370<shift>/Sspatie>ab 

360 fori=lto2000:next:sprintehrs(145)ssfori=lto2l:print" "srsnext:iprintsreturn<shif 
t>/<spatie>93 

370 ifss=lthen440<shift>/<spatievec 

380 printehrS(28)ehrs(17)"vergelijken (j/n)":printchrs(31)<shift>/<spatie>c9 

390 getvS$:ifvs<>"j"'andvs<>"n"then390<shift>/<spatie>d3 

400 v=0sifvs="n"then440<shift>/<spatiered 

410 v=l:print"geef 2e naam “sinputn2S<shift>/<spatie>5f 

420 printehr$(28)chrs(17) "geef de 2de datum ":print" (dd,mm,jj)"chrs(31l)<shift>/< 
spatie>0c 

425 inputd2,m2,5j2<shift>/<spatie>5c 

430 ifj2<100thenj2=j2+1900<shift>/<spatie>69 

440 k=int(.6+(1/mm)):l=jj-k:o=mmtl2*kip=l/100<shift>/<spatie>7e 

450 zl=int(p/4):z2=int(p):z3=int( (5*1)/4):z4=int(13*(o+l)/5)<shift>/<spatie>ca 
460 z=zZ4+23-Z2+zlt+dd-lisze(z-(7tint(z/7)))+I<shift>/<spatiev>ed 

470 print#4,"u werd geboren op een "d$(z):print#4,chrS(10)<shift>/<spatie>67 

480 jjs=strS(j):jjS=rightS(jjS,2):ifhu=lthengosublll0<shift>/<spatie>a2 

490 ifm=3thenprint"mrt.‘";:goto5l0<shift>/<spatie>6c 

500 printleft$(m$(m),3)".";<shift>/<spatievad 

510 printjjs" "prS:print:ss=l<shift>/<spatie>0d 

520 ifm<3goto540<shift>/<spatie>f4 

530 fl=(365*jtd4+3l*(m-l)-int(.4*mt2.3)tint(j/4)-int(3/4tint(5/100)+1)):goto550<sh 
ift>/Xspatie>fl 

540 fl=int(365*j+d+31l*(m-1)tint(j-1)/4)-int(3/4*int((j-1)/100)+1)<shift>/<spatie 
>a9 

550 ifmm<3goto570<shift>/<spatie>94 

560 £2=(365*jj+dd+31*(mm-l)-int(.4*mmt2.3)tint(jj/4)-int(3/4*int(jj/100)+1)):goto 
60O0O<shift>/<spatie>d8 

570 £2=int(365*jjtdd+31*(mm-l)tint(jj-1)/4)-int(3/4*int((jj-1)/100)+1) :goto600<sh 
ift>/<spatie>4a Î 

580 ifint(j/4)<>j/4thenx=28<shift>/<spatie>3c 

590 return<shift>/<spatie>c2 

600 ifd>lorv=0then670<shift>/<spatie>e7 

610 ifm2<3goto630<shift>/<spatie>a8 

620 f3=(365*j2+d24+3l*(m2-l)-int(.4km24+2.3) tint(lj2/4)-int(3/4*int(j2/100)+1))<shif 
t>/<spatie>0e 

625 goto640<shift>/<spatie>c8 

630 f3=int(365*j2+d2+31*(m2-l)tint(j2-1)/4)-int(3/4*int((j2-1)/100)+1)<shift>/<sp 
atie>f3 

640 vl=fl-f2:v2=fl-f3:fori=lto3:a=18+5*i<shift>/<spatie>e6 

650 v(i)jz=abs( (vl-int(vl/a)*a)-(v2-int(v2/a)*a))<shift>/<spatie>38 

660 v(li)jzint(abs(v(i)-a/2)*100/(a/2)):next<shift>/<spatie>05 

670 x=val(rights(msS(m),2)):ifx=29thengosub5BO<shift>/<spatie>06 

680 a=0:i=0:g=f2-flsda=fl-f2<shift>/<spatie>cc 

690 a=23:i=l:gosub700sa=28:i=2:gosub700:sa=33:i=3:gosub700rdedtl:goto00<shift>/<s 
patie>a0 

700 k(i)=O:b=sin(l/a*360/(180/3.14)*qg):b=int(l6+(15*bt.5)):ifi=lthenhus="£"<shift 
>/<spatie>4a 

710 ifi=2thenhus="e"<shift>/<spatie>ef 

720 ifi=3thenhus="i"<shift>/<spatie>f4 

730 ifprsS(b)="-"orpr$(b)="!"thenprs(b)=hu$:goto750<shift>/<spatie>27 

740 pr$(b)="*"<shift>/<spatie>lb 

750 ifb=l4orb=l5orb=l6thenk(i)j=l<shift>/<spatie>b6 

760 ifi=3thengosub780<shift>/<spatie>ac 

770 return<shift>/<spatie>8f£ 

780 hS$=str$(d):hS=(right$(h$,2)):ifda<0thengosub90<shift>/<spatie>lb 

790 h$=h$+" ":ifm=3thendrs=hSt"mrt. ":goto810<shift>/<spatie>7e 

800 dr$=h$tlefts(m$(m),3)+". "<shift>/<spatie>32 

810 h$=h$tleft$(m$(m),len(m$(m))-2)<shift>/Xspatie>8f£ 

820 gosubl280:ifk(l)=lthenks(s)=ds(z)+" "+hS+" fysiek":s=stl<shift>/X<spatie>l5 
830 ifk(2)=lthenk$(s)=d$(z)t" "th$t" emotioneel":s=stI<shift>/Xspatie>bc 

B40 ifk(3)=lthenks(s)=d$(z)+" "+h$+" intellect":s=st1<shift>/<spatie>98 
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850 fori=3ltolstep-l:drS=dr$+pr$(i)j:snext:iprintdrS;:ifda>0thenprint<shift>/<spatie 

>da 

860 ifda<0Othenforxx=lto24:printchr$(157);:next:iprint"voor uw geboorte! "<shift>/<s 

patie>07 

870 ifda=0thenforxx=ltoll:printchrs(157);:snext:iprintchr$(18) "geboortedag" <shift>/ 

<spatie>90 

880 ifhu=lthengosubl040<shift>/<spatie>49 

890 gosubIOrreturn<shift>/<spatie>49 

900 ifd<=xgoto520<shift>/<spatie>af 

910 ifhu=lthengosubll40<shift>/<spatie>b6 

915 rss="":forxx=ltol0:rss=rsS$tchrs(183) :next<shift>/<spatie>fc 

920 print," bioritmiek":print," “rs$:ifte=lthenreturn<shift>/<spatie>8f 

930 run<shift>/<spatie>2b 

940 emd4:printehrs(2)"bioritme voor:":print#4,chr$(3),spcll)nS:print#4,chrs(10)<s 

hift>/<spatie>86 

950 print#4,chrs(2)"geboren op s"sprint#4,dS(z)ehrs(3)ds,hus<shift>/<spatie>b3 

960 print#4,chrs(1l0):print#4,chrs(2)spell4)"bioritmische berekening van: "s<shi 

ft>/<spatie>3a 

970 ifm=3thenprint#4, "mrt.'"'j: bh neen 

980 print#4,lefts(m$(m),3)"."strs( j)sshift>/<spatie>05 

990 printt4,chrS(1l0):print#4, SELA Ê == fysieke gesteldheid. 23 dagen. "<sh 

ift>/<spatie>bf 

1000 print#4,spel(l4)"e emotionele gesteldheid. 28 dagen. "<shift>/<spatie>85 

1010 print#4,spell4)"i intellectuele gesteldheid. 33 dagen. "<shift>/<spatie>f3 

1020 rbe ed = samenvallen van twee of meer ritmen."<shift>/<spatievel 

1030 print#4,chr$(10):return<shift>/<spatie>f1 

1040 gosubl280:ifda<=0Othengosubl080:return<shift>/<spatie>80 

1050 print#4,d$(z)" "dr$" "“da;<shift>/<{spatie>89 

1060 ifda=lthenprint#4," dag oud.":sreturn<shift>/<spatie>ac 

1070 print#4,"dagen":return<shift>/<spatie>57 

1080 print#4,d$(z)" "dr$;sifda<Othenprint#4, " voor uw geboorte! "<shift>/<spatie 

>ba 

1090 ifda=0Othenprint#4, " uw geboortedag! "<shift>/<spatie>0f 

1100 return<shift>/<spatie>c6 

1110 emd4:printspe(9);:ifm=Zthenprint"mrt. ‘";:gotoll30<shift>/<spatie>7f 

1120 printleftSs(ms(m),3)". ‘";<shift>/<spatie>lc 

1130 printjjs" “prS:print#4,chr$(10):return<shift>/<spatierlc 

1140 x=val(right$(ms(m),2)):fori=lto34-xinextrifs=lthenl190<shift>/<spatie>fb 

1150 4,G(10):4,"lijst van uw kritieke dagen voor deze periode<shift>/<spatie>83 

1160 ":4,G(10)hs" dag datum gesteldheid<shift>/<spati 

e>02 

1170 7 meeeeeennnneneeenneneeneeeeneeeee===<shift>/<spatie>58 

1180 fori=ltos-l:sprint#4,h$;kS(i):snext:print#4, aen l10)ehrs(10)<shift>/<spatie>76 

1190 ifv=Othenl250<shift>/<spatie>5c 

1200 4,"overeenkomst tussen '"nS" en "n2S" i 

1210 A,E(LO)hS” fysieke gesteldheid "I 
( 
( 


- 


:<shift>/<spatie>0b 
D(v Ee 1,2)" E<shift>/Sspatie>cl 

1220 4,hs" emotionele gesteldheid "I(D(v(2) 

1230 4,hS"intellectuele gesteldheid "I(D(v(3) 

1240 print#4,chr$(10)<shift>/<spatie>9b 

1250 print#4,"vraag voor belangrijke gebeurtenissen (operatie!) een sec-ritme"<sh 

ift>/<spatie>22 

1260 fori=lto64:print#4,"="s:next:iprint#4<shift>/<spatie>97 

1270 fori=lto8:print#4,chr$(10):next:return<shift>/<spatie>54 

1280 w=dik=int(.6+(1/m)):l=j-kro=mtl2tkip=l/100<shift>/<spatie>l3 

1290 zl=int(p/4):z2=int(p):23=int( (S*1) Ee szá=int(13*(otl)/5)<shift>/<spatie>06 

1300 z=z4+z3-z2tzltdelize(z-(7tint(z/7)))+l:dewireturn<shift>/<spatie>5a 

1310 DE deelt venetie eel SE lenses en Ale 

1320 closel:run<shift>/<spatie>0c 

EEE 15:poke54277,10:poke54278,10:poke54273,65:poke54272,65<shift>/<spa 

tie>ba 

1340 poke54276,17:forpp=lto55:next:poke54276,0:poke54277, 0: poke54278,0<shift>/<sp 

atie>le 

1350 forii=54272to54272+24:pokeii,O:next:return<shift>/<spatie>c5 

1360 G(147)G(17)13}"bioritme<shift>/<spatie>51 

1365 rs$="":forxx=ltol4:rs$=rsStchrs(192):next<shift>/<spatie>38 


),2)" S<shift>/<spatie>02 


s 
( 
2 
3)),2)" s<shift>/<spatie>63 
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1370 print,rs$chr$(32)ehrs(l7)ehrs(l7)ehrs(1l7):gosubl6lO<shift>/<spatie>79 

1380 gosubl330:printehrs(l7)ehrs(31l)"naam";:zinputn$:gosubl330<shift>/<spatie>l1l 
1390 G(28)G(17 ken de geboortedatum<shift>/<spatie>96 

1400 printehrS(3 I)chr$(17)"geboortedag";:inputt:gosubl330<shift>/<spatie>c? 

1405 printchr$(17)"geboortemaand";:inputm:gosubl330<shift>/<spatie>la 

1410 Enten letten inputj:gosubl330<shift>/<spatie>bd 

1420 printchrS(28)chrs(1l7)ehrs(l7)ehrs(17) "gewenst bioritme : "chr$(17)<shift>/<s 
patie>9c 

1430 pokel98,O:printchr$(3l)echr$(17) "maand";:inputmm:gosubl330<shift>/<spatie>fa 
1431 printchr$(l7)"jaar";:tinputjj:gosubl330smo=mm: ja=jj:ta=tt<shift>/<spatie>75 
1440 m=m+1l:smm=mmti<shift>/<spatie>9f 

1450 s=int(jj*365.25)-int(j*365.25)tint(mm*30.6)-int(m*30.6)-t<shift>/<spatie>lc 
1460 forn=23to33step5:s(n-23)=int((s/n-int(s/n))*n):snext<shift>/<spatie>3b 

1470 printchr$(1l47)tab(3) "bioritme van :"chr$(28)ns<shift>/<spatie>a9 

1480 printchr$(31)" voor de maand:";mo;chr$(157)".";sja:print" geb.datum: "ts; 
m-l;j<shift>/<spatie>76 

1490 printchr$(142):fort=0tol6:pokel304+40*t,93:poke55576+40*t,6rnext<shift>/<spa 
tie>c7 

1500 fort=0to39:pokel624+t,ll4:poke55896+t,6rnext:ipokel624,91<shift>/<spatie>24 
1510 fort=0to39:ifint(t/5)<>t/Sthenl530<shift>/<spatie>bd 

1520 pokel664+t,66:poke55936+t,6<shift>/<spatie>c0 

1530 next:pokel624,91l:fort=0to3<shift>/<Sspatie>36 

1540 p=t-40*int(.5+8*sin((s(0)+t)*2*3.1416/23) ):pokel624+p,8l:poke55896+p, 2<shift 
>/<spatie>89 

1550 e=t-40tint(.5+8*sin((s(5)+t)*2*3.1416/28) ):pokel624te,42:poke55896te, 6<shift 
>/<spatie>93 

1560 i=t-40tint(.5+8*sin((s(10)+t)*2*3.1416/33) ):pokel624+1i,87:poke55896+i,5<shif 
t>/<spatie>bd 

1565 next<shift>/<spatie>99 


1570 G(28)" input = lichamelijke toestand<shift>/<spatie>8b 

1580 G(31)" * = emotionele toestand<shift>/<spatie>67 

“1590 printehr$(30)" W = geestelijke toestand"chr$S(31) :gosubl330<shift>/<spati 
e>82 


1600 sys49152:run<shift>/<spatie>53 

1610 readhh$:ifhhSs<>"chb"thenl61l0<shift>/<spatie>90 

1620 data"chb"<shift>/<spatie>98 

1630 fori=0to97:reada:poke49152+i,arnextsreturn<shift>/<spatie>50 

1640 datal69,4,133,186,169,126,133,184,169,0,172,136,2,133,113,132,114,133<shift> 
/<spatie>c9 

1650 datal83,133,185,32,192,255,166, 184, 32,201,255,174;,8,229,169,13, A 210<shift> 
/<spatie>d4 


1660 data255,32,225,255,240,47,160,0,177,113,133,103,41,63,6,103,36,103<shift>/<s 
patie>el 

1670 datal6,2,9,128,112,2,9,64,32,210,255,200,204,6,229,208,229,152,24,10l<shift> 
/<spatie>2b 

1680 datall3,133,113,144,2,230,114,202,208,204,169,13,32,210,255,32,204<shift>/<s 
patie>l5 

1690 data255,162,126,76,195,255,96<shift>/<spatie>2c 

1700 sys65126<shift>/<spatie>0a 








NETSPANNING-6G4 
Het bijgaande programma 

hoort bij de column van Wijo 

Koek en René Boot op pagina 

79. 


NETSPANNING 64 











0 rem netspanning 64 (1985)<shift>/<spatie>d4 
5 rs$=!"!;forxx=lto7:rs$=rs$tchr$(29) snext<shift>/<spatie>6be 

6 dos="":forxx=lto8:dos=doStchrs(17) snext<shift>/<spatie>65 

10 fort=0to3l9:readtt:pokel2288+t,tt:inextt<shift>/<spatie>dd 

20 printehr$(147):poke53280,1ll:poke53281,1ll:sprite= dekt rt eelde 

30 eene 29)ehrs(29)ehrs( 29)"kies:"<shift>/<sp 
atie> 

40 printchr$(1l7)ehr$(17)rs8"l- kro":sprintchr$(17)rss"2- tros"<shift>/<spatie>bd 
45 printchr$(17)rs$"3- vara"<shift>/<spatie>6b 

50 geta$:a=val(as):sifa<lora>3then50<shift>/<spatie>3d 

55 printchrS(147): poke53265,peek(53265)and239<shift>/<spatie>8f 


















COMMODORE DOSSIER 45 















Neen De AKTIEF PROGRAMM EE 


70,80,90:rem greetae ee, 


60 onagoto 
etvertni elen Ooa, ot pokenpel, 12rechenm(AMTENN 


70 gantal=lrpoke2040;192 
spatie>67 

75 ELEN an sgegidlosprintenes SSDS ore 

80 Eee nere dooden ossen ON 
<spatie>44 
85 atleet en geeneen okers chinees 

87 Soete EEE ED Sad 
90 printen taken OANEeE eha Lodges Raise 

93 santa dRaad gpokeoprt, Lento Benen 

96 P keep ria, Tish tape en 

98 poken Te rpokeept1,0zpokespt2:195:pohenp dn 0 
shift>/<spatie>c? 

99 Eer Spa sters, gprintenrs EETL SE 

100 cher DRE reparen adil, schemmsghiEn/ speien 

110 poken eh evastiet, bussie pee rei 

120 ale eek lsvans jorik eene 

130 ph rmoenbsghtanietr/ epen 

140 printchr$(19) dos’ m sdegdel tf g wgshift>/<spatie>f0 

142 prin (ienrs (17 )ehrs (1D enrs (11170 gevolg van een wilde 
e>ld 

143 grtneenrht 11) staking bij de „fdeling"<shift>/<spatie>fl 

144 Einen 17) "telecomminiee van de ngshift>/gspatierad 

145 printchr$(17)n-0-8- komen ge"<shift>/<spatie>f 7 

146 rintehr$(17) "programma 5 op dit net"eshift>/<spatie>de 

148 printchr$(17) "vanavond te SP vallen, "ésnittr/sopatieras 

150 pre gewit 107, Güde be 

160 venete Genta d0, gemeten Ont een 

170 ee hAl, Beene A en 

180 et naars rine A 
He? p 

190 okesaacs peek(52265)orl6rgotozogendtn/ Seend 

400 remt kro-kooi keshifts/<spatie>6? 

410 LOESER SGEE aaneen eretenancheN 
>/<spatie>l5 

415 patented reders chr (214) smext eni Genes (127) 

braden ended 
patie> Cc 

422 29E re{Lizrehrs tld) tehrs (180) cete PE Sone 

425 eier g eheRtE1A)ASRER On semens To) venes (ant) vanrs 180 SSMENDA 


kesp+4,252:pokesp+5, 100 


wgshift>/<spati 


patie>9f 
430 2 van{zejvagehe (193) ones (103) gld endif t/ cepa 
A40 r4s=r35+" uar3S<shift>/<spatie>49 


445 metal sbjeabentrigtf dpatienen 


450 omtigetatl 28 jrg en fp ee 
460 inttah(2g)rissahiftr/sepetlen de 
470 printEnptaenes(La7)+eestehes 108) eN ene (183) wetn 
480 printed IcheR (1E (lenenes (Laa rees 43) return eht SPREE 
500 rem* vara-uitroepteken *gshift>/<spatie>42 
510 gartelûtolupestiftr/<apabier0e 
520 pokespritetl, t<ehift>/<spatientd 
530 rete neste th/ epatles0e 
540 nextrsreturn<shift>/<spatie>28 
1000 rem * kro-logo kgshift>/<spatie>l4 
1001 ren Aro Bh0, 000, 2384000, 000,252<ehiftr/ SSPAn LS An 
1002 Gate OA, OE ade. DNA GOM BS2, DIG, DOOSshLEted Re ee 
1003 data000s 000 Ae0! 1,000, 113,017,2524ehiftr/ cspatier je 
1004 dae A06 LS, Dad, LOE La: DLA seE tn, De af 
1005 daalde etos ade Le pDA dDEr AL B Ch E ERA 4 
1006 datter goor Lap, 000 000, 23le00dsekif Er separiern 
1007 dated pop, 000,231,000,000,2314aniftr/ spaties 
1008 data 00, ESO” Di, 00D „000, 126, DDA, 000 <end Fb /Kapat iest 
DE sein en *cshift>/<spatie>4l 

ata 016,000,000,056,000,024,056<shitt» Ì 
1011 Aataoo0 016, 680,909, 039, D00r Ar ORS ERiEL apar ierse 
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1012 datal98,096,013,255,096,007,255,192<shift>/<spatie>57 
1013 data015,131,224,059,001,184,243,001<shift>/<spatie>5e 
1014 datal58,059,001,184,015,131,224,007<shift>/<spatie>52 
1015 data255,192,013,255,096,012,198,096<shift>/<spatie>50 
1016 data015,239,224,031,125,240,024,056<shift>/<spatie>5b 
1017 data048,000,056,000,000,016,000,000<shift>/<spatie>5d 
1019 rem * vara-logo (1) *<shift>/<spatie>65 

1020 datal92,012,192,192,012,192,192,012<shift>/<spatie>59 
1021 datal92,096,025,224,096,025,224,096<shift>/<spatie>54 
1022 data025,224,048,051,048,048,051,048<shift>/<spatie>5l1l 
1023 data048,051,048,024,102,024,024,102<shift>/<spatie>51 
1024 data024,024,102,024,012,207,252,012<shift>/<spatievae 
1025 data207,252,012,207,252,007,152,006<shift>/<spatie>ae 
1026 data007,152,006,007,152,006,003,048<shift>/<spatie>a6 
1027 data003,003,048,003,003,048,003,000<shift>/<spatie>ab 
1029 rem * vara-logo (2) *<shift>/<spatie>9f 

1030 data252,000,192,254,000,192,255,000<shift>/<spatie>a9 
1031 datal92,007,129,224,003,129,224,001<shift>/<spatie>a3 
1032 datal29,224,001,131,048,001,131,048<shift>/<spatie>ad 
1033 data001l,131,048,003,134,024,007,006<shift>/<spatiev>ae 
1034 data024,254,006,024,252,015,252,112<shift>/<spatie>a?2 
1035 data015,252,056,015,252,028,024,006<shift>/<spatie>a9 
1036 data0l4,024,006,007,024,006,003,176<shift>/<spatie>a6 
1037 data003,001,176,003,000,176,003,000<shift>/<spatie>a4 
1039 rem * vara-logo (3) *<shift>/<spatie>94 

1040 data000,024,000,000,024,000,000,024<shift>/<spatie>bd 
1041 data000,000,024,000,000,024,000,000<shift>/<spatie>ba 
1042 data024,000,000,024,000,000,024,000<shift>/<spatie>bf 
1043 data000,024,000,000,024,000,000,024<shift>/<spatie>be 
1044 data000,000,024,000,000,024,000,000<shift>/<spatie>bf 
1045 data024,000,000,000,000,000,000,000<shift>/<spatie>b8 
“1046 data000,024,000,000,060,000,000,060<shift>/<spatie>bb 
1047 data000,000,060,000,000,024,000,000<shift>/<spatie>bc 


SPRITE EDITOR 

Een fraai programma dat u modore u op ruitjespapier wil komt. Er zijn al veel sprite- 'Spel-ontwerpen’ verwijst Jan 
helpt bij het maken van spri- laten doen. Ook neemt de edi- editors verschenen voor de Jacobs er steeds weer naar. 
tes. In feite kunt u met dit pro- tor het rekenwerk van u over Commodore, maar wij zullen in Het is dus wel zinvol dat u de- 
gramma op het scherm doen, _ dat bij het met de hand ont- de toekomst steeds naar deze ze editor overneemt. 

wat het handboek van Com- werpen van sprites te pas verwijzen. Voor de cursus 


SPRITE EDITOR 


5 poke55,194:poke56,4Irelr<shift>/<spatie>ab 

6 ris=""s;forxx=ltollsris=ristchrs(29)snext<shift>/<spatie>40 

10 dimp$(21):poke649,1:v=53248:pokev+32,0:pokev+33,0:gosubl50OS<shift>/Sspatie>25 
15 printchrS(1l47)chrs(1l8)chrs(31)" "s<shif 
t>/<spatie>52 

16 printchrs(5); gemeen 

20 pokev+21,0O:printchrs( )chrs (156) sprite editor ";<s 
hift>/<spatie>ch 

25 printchrS(18)chrs( Vehes( 30) stant 
>/<spatie>75 

30 printchr$(146)chrs( )chr$(17)"laatst gebruikte blok =";b;chr$(13);<shift>/<sp 
atie>93 

31 En laad/save En = “sbl<shift>/Xspatie>85 

35 printchr$(l7)chrs(18)echrs( HE. heksel (30)echr$(146)"start editor"schr$(13);<shi 
Et>/<spatie>fb 

36 printchrS(1l8)echrs(3l)"2."ehrs(30)ehrs(146) "bekijk een sprite-blok";chrs(13) ;<s 
hift>/<spatie>3a 

37 printchr$(18)chr$(31)"3."chr$(30)chr$(146)"bekijk data van een sprite-blok"<sh 
ift>/<spatie>b7 

42 printchr$(1l8)chrs(31)"4."echrs(30)ehrs(146)"sprite omkeren"schrs(13)s<shift>/<s 
patie>2a 

43 printchr$(1l8)echrs(31)"5."ehrs(30)ehrs(146) "sprite bewegen"schrs(13);<shift>/<s 
patie>26 Ì 

45 printchr$(1l8)echrs(31)"6."echrs(30)ehrs(146) "laad sprite-data"schrs(13);<shift>/ 
<spatie>4f 
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48 printchr$(18)chrs(31)"7."echrs(30)echrs(l46) "save sprite-data"schr$(13);<shift>/ 
<spatie>5a 

49 printchrS(1l8)chrs(31)"8."chr$(30)chrs(146)"s t oppe n"<shift>/<spatie>c6 

50 print:print:printchr$(156)"druk op de gewenste toets":;goto227<shift>/<spatie>88 
95 printchr$(147)<shift>/<spatie>32 

100 printehr$(30)"welk blok (201-254)?":gosub 270:gosub 300<shift>/<spatie>32 

115 b=bl:x=24:y=74:pokevt+21l,6l:char=160:fg=0:pokev, x:pokevtl,y<shift>/<spatie>74 
118 gosub 200<shift>/<spatie>c9 

120 ifx>2llorx<24 then x=peek(v)<shift>/<spatie>ad 

125 ify>234ory<74 then y=peek(v+l)<shift>/<spatie>30 

128 pokev,x:pokevtl,y<shift>/<spatie>20 

130 if fg=l thengosubl60<shift>/<spatie>96 

133 if fg=2 thengoto352<shift>/<spatie>95 

135 if fg=3 thengotol5<shift>/<spatie>a6 

155 gotoll8<shift>/<spatie>2a 

160 xx3=(x-12)/8:yys=(y-46)/8:S=1024txKEH40FYyS:pokes,char:spokes+54272,2:fg=0<shi 
Êt>/<spatievel 

165 return<shift>/<spatie>2b 

200 getkS:ifks=""then200<shift>/<spatie>ff 

205 ifkS=chrs(157)thenx=x-8:return<shift>/<spatie>5c 

208 ifkS=chrs(29)thenx=x+8:return<shift>/<spatie>78 

210 ifkS=chr$ (145) theny=y-8:return<shift>/<spatie>40 

215 ifkS=chrs (17) theny=y+8:return<shift>/<spatie>72 


218 ifks="a"thenchar=160:fg=l:returng<shift>/<spatie>fb 

220 ifks=" "thenchar=32:fg=l:return<shift>/<spatie>aa 

222 ifkSs=chr$(13)thenfg=3: dekbed etn 

224 ifk$=chr$(133)thenprintchrs(1l9)ehrs(3l)ehrs(18) "sprite wordt gemaakt":fg=2<sh 
ift>/<spatie>02 

226 return<shift>/<spatie>6c 


227 getkS:ifkSs=""then227<shift>/<spatie>dl 

ks="1"then95<shift>/<spatie>28 

ks="2"then600<shift>/<spatie>le 

k$="3"then502<shift>/<spatie>18 

ks="4"then705<shift>/<spatie>l9 

ks="5"then875<shift>/<spatie>ll 

ks="6"then820<shift>/<spatie>0d 

ks="7"then858<shift>/<spatie>0a 

250 ifks="8"thenend<shift>/<spatie>b3 

253 goto227<shift>/<spatie>43 

270 printehr$(l56)ehr$(18)"blok"chr$(146);s:inputblS:blS=lefts(bl$,3) :bl=val(blS)< 
shift>/<spatie>ca 

272 ifbl>255orbl<200thenprint"out of range":goto270<shift»/{spatie>88 

275 return<shift>/<spatie>9c 

280 printcechr$(30)"klaar, raak een toets voor het menu":pokel98,0:waitl98,1<shift»> 
/<spatie>78 

290 return<shift>/<spatie>ad 

300 printchr$(147)ehrs(17)ehrs(30):forl=0tol8:printtab(28)chrs(18)” Is 
hift>/<spatie>51 

301 nextl:printchr$(19)chrs(17)ehrs(17)ehrs(31);<shift>/<spatie>70 

318 printchrs(18)" “sforl=0to20<shift>/<spatie>ba 

320 printchrs(18)" “chrs(146)" YehrsS(18)" "chr$(146);sris<s 
hift>/<spatie>dc 

325 nextl<shift>/<{spatie>8a 

330 printchr$(18)" ";<shift>/<spatie>26 

335 printchrs(19)schr$(18)chrs(31)"teken";" blok";bl;<shift> 
/<spatie>47 

336 printchr$(157)" “<shift>/<spatie>3d 

338 iffg=4thengoto345<shift>/<spatie>43 

340 return<shift>/<spatie>db 

345 printchr$(19)ehr$(l7)ehrs(l7)jehrs(1l7)ehrs(28):forl=0tol8:printehrs(29);ps (1) < 
shift>/<spatie>b?7 

346 nextl:fg=0:gotoll5<shift>/<spatie>aa 

352 mebl*64:r=0:forl=0to20:ps(lj=""inextl:forl=0to62:pokemtl,Ornextl<shift>/<spat 
1e579 

353 forry=0Oto20:yy=ll45+40*ry:irx=0<shift>/<spatie>fc 

365 forc=0to2<shift>/<spatie>ba 

368 forn=Jto0step-l:p=peek(yytrx)<shift>/<spatie>27 

370 ifp=l60thenpokem, (peek (m)+2)and255: ps(r)=pS(r)tehrs(18)t" "tehr$(l46)<shift 
>/<spatie>2e 

400 ifp=32thenp$(r)=ps(r)+" "<shift>/Xspatie>66 

402 rx=rxtl:inextn:im=mtlinexterrertlinextry<shift>/<spatie>04 

405 forc=0to3:poke2042+c,bl:inexte<shift>/<spatie>da 

450 ET :gosub280:gotol5<shift>/<spatie>55 

502 printchr$(147)ehrs( “data voor welk En 


505 gosub270:m=bl*64: ade 17)ehr$(17);:forl=mtom+62:printcehrs(30)ehrs(29) 
hift>/<spatie>62 





No 

Lo 

co 
Pee He pe He He 
Hh Eh Eh Hh Eh Eh Eh 
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506 printpeek(1);",";<shift>/<spatie>cl 

508 nextl:printchr$(20);chr$(13):gosub280:gotol5<shift>/<spatie>91l 

600 printehrS(147)ehrs(30) "welk sprite-blok?":gosub270:m=bl*64rp=peek(m) <shift>/< 
spatie>67 

601 pokev+21,61l:b=bl<shift>/<spatie>dc 

602 forl=2042to2045:pokel,bl:inextl:gosub300:forry=0to20:yy=1145+40*ryirx=0<shift> 
/<spatie>91l 

605 forc=0to2:forn=Jto0Ostep-1<shift>/<Xspatie>be 

618 ifp>=2thenp=p-2:poke54272tyy+rx,2:pokeyytrx,160:<shift>/<spatie>ad 

625 rx=rxtl:nextn:memtl;p=peek(m):nextesnextry<shift>/<spatie>al 

630 gotol5<shift>/<spatie>f9 


705 printchr$(147);chrs(30) "welk blok omkeren? ";gosub270sm=bl*64sb=bl<shift>/<soa 
tie>06 

710 forl=mtom+63:pokel,255-peek(1l):nextl<shift>/<spatie>9f 

720 gosub280:gotol5<shift>/<spatie>d2 

820 printchr$(147)ehr$(30)"in welk blok data laden?":gosub270sm=bl*64:bl=bl<shift 
>/<spatie>fB8 

821 print"van "chr$(18)"c"chr$(146)"assette of “ohr${(18)"d"echrs (146) "iskette: ‘sh 
ift>/<spatie>f2 

822 getaw$S:ifaws=""then822<shift>/<spatie>08 

823 ifaws="d"then 830<shift>/<spatie>e?7 

824 ifaws="c"then 825:goto822<shift>/<spatie>60 

825 openl,1,0,"":forl=0to62:input#l,x:pokem,x:m=mtl:nextl:closel:gosub280<shift>/ 
<spatie>c2 

826 gotol5<shift>/<spatie>b4 

830 input'"welke file-naam";awS<shift»/<spatie>e9 

832 open2,8,2,"s0:"+awst",s,r"<shift>/<spatie>a2 

834 fForl=0to62:input#2,x:pokem,x:m=mtl:nextl:close2:gosub280<shift>/<spatie>00 
835 gotol5<shift>/<spatie>cd 

858 printchrS(1l47);chr$s(18)chr$(30) "welk blok saven?":gosub270:m=bl*64:bl=bl<shif 
t>/Xspatie>78 

860 print"op "chr$(18)"c"chr$(146)"assette of "chrs(18)"d"chrs(146)"iskette: "<shi 
ft>/<spatie>dd 

861 getawS:ifaws=""then86l<shift>/<spatie>64 

862 ifaws="d"then 866<shift>/<spatie>8d 

863 ifaws="c"then 864:goto8el<shift>/<spatie>05 





864 openl,l,1l,"sprite data":forl=mtom+63:x=peek(l):print#l,x:nextl<shift>/<spatie, 


>da 

865 closel:gosub280:gotol5<shift>/<spatie>c9 

866 input"welke file-naam:";awS<shift>/<spatie>8f£ 

867 open2,8,2,"Ss0:"+awst",s,w"<shift>/<spatie>84 

868 forl=mtomt63:x=peek(l):print#2,x:nextl<shift>/<spatie>5c 

869 close2:gosub280:gotol5<shift>/<spatie>ce 

870 :<shift>/<spatie>5f 

875 pokev+21,0:printehr$(147)ehrs(30)"type het bloknr dat ù wilt hewsgentceh Ees 
<spatie>82 

876 print" ‘e’ stopt de beweging":print" ‘spatie’ vertraagt de beweging"<shift>/<sp 
atie>l2 

877 gosub270ran(0)=bl<shift>/<spatie>be 

880 printchrs(18)ehrs(30)"vergroten x,y,n(iet),bleide)"chr$(146);:inputops<shift> 
/<spatie>ba 

881 op$=lefts(op$,l):ifops="x x"thenpokev+29,1l<shift>/<spatievae 

882 ifops="y"thenpokev+23,1<shift>/Xspatie>fa 

883 ifops="b"thenpokev+23;,l:pokev+29,1<shift>/<spatie>a7 

884 x=24:pokev+l,140:r=0:pokev+21,1<shift>/<spatie>47 

885 poke2040,an(r):r=r+l:ifr>pthenr=0<shift>/<spatie>fl 

886 ifx>320thenpokev+16,0:x=24<shift>/<spatie>27 

888 pokev+16,int(x/256):pokev,xand255:x=Xt2<shift>/<spatie>49 

890 getkS:ifks="e"then900O<shift>/<spatie>00 

892 ifks=" "thengosub895<shift>/<spatie>l?7 

893 fort=0to30Ornextt:goto8B5<shift>/<spatieve4 

895 fort=0to700:next:return<shift>/<spatie>b4 

900 pokev+23,20:pokev+29,24:gosub280:poke2040,1ll:pokev+l6,60:x=24; pokev,x<shift>/ 
<spatie>9c 

905 gotol5<shift>/<spatie>07 

1500 pokev+16,60:pokev+39,4:forl=4lto44:pokevtl,6:nextl:pokev+23,20: pokev+29,24<s 
hift>/<spatie>c5 

1518 pokev+4,10:pokev+5,70:pokev+6,10:pokev+7,115:pokev+8,10:pokev+9,140<shift>/< 
1518 pokev+10,10:pokev+11,188:poke2040,1ll:forl=704to704+63:read d:ipokel,dinextl<s 
hift>/<spatie>ad 

1530 restore:return<shift>/<spatie>c7 

1535 deta0,255,0,0,-255,0;0,255:,0,0,255,0,0,255,0,06 255,0; 02557004255, OLShiEES SZ 
spatie>55 

1540 Arn eer LRE EE WER ER LL OE ARR DARMEN LER MEER  ARr R PSSILLELR AS 
spatie>ad 
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Maandelijkse rubriek met de belangrijkste informatie uit de 
Commodore gebruikersclubs. 


Stichting Computer Hobbyisten 
Nederland (SCN) 
HOT NEWS 


Secretariaat: A. Brink, tel. 
03450-16051 (ma-, di- en 
woensdag tussen 13.00 en 
22.00 uur) 

Voor inlichtingen over de re- 
gionale afdelingen kun u zich 
wenden tot: 

Afdeling Zwolle: P.P.L. van 
Bijsterveld, tel. 038-548459. 
Afdeling Midden Nederland: H. 
Scheffer, tel. 03453-1375 
Afdeling Deventer:tel. 
05700-50758/50759 
Algemene bijeenkomsten: 
tweede zaterdag van de 
maand in de scholengemeen- 
schap Centrum/oud-west, Jan 
van Galenstraat t/o nr. 14, 
Amsterdam. Vanaf april wor- 
den de bijeenkomsten gehou- 
den in De Meervaart, Osdorp- 
plein, Amsterdam. 


Vereniging voor de Gebruikers van 
Commodore-computers in Nederland 
(VCGN) 


Secretariaat: Ine van Teijlin- 
gen, De Brink 928, 2553 HT 
Den Haag, tel: 070-971851 
(van 20.00 -22.00 uur, m.u.v. 
maandag en woensdag) 
b.g.g. 070-687924 of 
070-946156 


Voor inlichtingen over de re- 
gionale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeeland: R. van Dijk, 
tel. 01180-25746 

Afdeling West-Brabant: P. Ne- 
len, tel. 01640-51639 

Afdeling Midden-Brabant: W. 
Wils, tel. 01620-55634 
Afdeling Oost-Brabant: C. de 
Winter, tel. 04120-42054 
Afdeling Zuid-Limburg: J. van 
Mastrigt, tel. 043-476935 
Afdeling Zuid Holland-Zuid: D. 


COMMODORE MARKT 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 
IK BIED HARDWARE AAN 


* Vic-20 + rec. + 2 joyst. + softw. + 
Ned. handb. Pr. f 400,-. Tel. 
010-835101. 


* Vic-20 met uitbr. tot 20K Ram + 
comm. cass.rec. + joyst. (beste uit 
cons.test) z.g.a.n. t.e.a.b. J. Drijver, tel. 
078-170523. 


* CBM 64 + cass.rec. + joystick + 55 
spelletjes, Simon's Basic + reset-knop. 
Prijs f 625,-. Na 6u 02263-3906. Vragen 
naar Jan-Willem. 


* C 64, datarec, 1541 (3wk!), Zenith 
monitor (1,5wk!), 20 diskettes tot 

f 1900! Veel softw. met hand. + div. 
boeken. Prijs laag! Wegens syst. 

wiss. en veel korting op nwe syst. R. 

Montsma, Pieter 3, 3641 NA Mijdrecht, 
02979-33293. 


* Voor zendamateurs RTTY/Morse deco- 
der v. Commodore 20 of 64. U dient 
slechts een kortegolf zender/ontvanger te 
hebben. Inl: B.G. Remmers, Postbus 116, 
6500 AC Nijmegen, 080-239490. 


* Commodore Vic 20 + cass.rec. + 40 
spell. + joyst. + 2 Ned. instr.boeken 
(ook Engelse). Prijs f 300,-. Tel. 
040-416984. 


* Comm. C2001 incl. cass.rec. en enkele 
progr. en lectuur. Vr.pr. f 2200,-. Tel. na 
19u 050-719477. 


IK BIED HARDWARE EN 
SOFTWARE AAN 


* MPS-801 printer (CBM) + 40 C-64 
topprogramma’s + 3 mnd. garantie, 
f 700, Tel. 01820-35147. 


IK BIED SOFTWARE AAN 


* Veel progr. voor Vic-20, ook games 
(Frogger, Pacman, Skramble). Voor info, 
bel 073-563562 of schrijf: Jorg 
Roodbeen, Brabantlaan 43, 5262 GX 
Vught (postz. bijsluiten). 


* Forth cart. voor CBM-64 (Audiogenic) 
samen met boek Flitsend Forth en 
uitgebr. hand, f 100,-. Tel. 
020-173432. 


van Riemsdijk, tel. 010-501023 
Afdeling Noord Holland-Zuid: 
J.A. Dekker, tel. 02502-7968 
Algemene bijeenkomsten: 
laatste zaterdag van de maand 
in Rijswijk (Lodewijk Makeblij- 
de College, H.R. Holstlaan 2, 
2283 HB). 
Afdelingsbijeenkomsten: 
Afdeling Zeeland: bij wijze van 
proef: maandag 11/2 ‘savonds, 
zaterdag 9/3 overdag. De data 
van de overige bijeenkomsten 
zijn nog niet bekend. 

Afdeling West-Brabant: eerste 
zaterdag van de maand 
Afdeling Midden-Brabant: derde 
zaterdag van de maand. (in ver- 
band met carnaval zal in februari 
de bijeenkomst op de tweede za- 
terdag worden gehouden). 
Afdeling Oost-Brabant: derde 
zaterdag van de maand. (in ver- 
band met carnaval zal in febru- 
ari de bijeenkomst op de twee- 
de zaterdag worden gehouden). 
Afdeling Zuid-Limburg: eerste 
zaterdag van de maand 
Afdeling Zuid Holland-Zuid: 
eerste zaterdag van de maand 
Afdeling Noord Holland-Zuid: 
eerste zaterdag van de maand 


* NOS Basicode-2 pakket, bestaande uit 
boek + cass. Stort f 20,- op giro 
4371562 tnv. J. de Jager, Schoolstr. 
11, 7071 ZX Ulft. 


IK ZOEK HARDWARE 


* Commodore 64 diskdrive, max. 1 jr. 
oud. Tel. 02230-31382. 


* CBM 1541 diskdrive, aanbiedingen + 
prijsopg. sturen naar M. v. Kersen, 
Waardsedijk 4, 3448 HV Woerden, tel. 
03480-15680. 


* Commodore 64 met datarec. E. 
Schieving, Crocuslaan 12, 5582 GB 
Waalre, tel. na 19u s.v.p. 04904-2194. 


* CBM-64 met datarec. en event. softw. 
Tel. 010-193881. 


* Expansion interf. v. TRS-80 met 32K 
Ram en RS-232 interf. Tevens hi-res 
modific. + benodigde softw. L.E. 
Eikenoord, tel. na 19.30u: 01862-1772. 


* Commodore 64 aanbieding met prijsopg. 
aan R. Pieterse, Dr. A. Kuyperstraat 8, 
2841 CJ Moordrecht, tel. 01827-3037. 


* Commodore 8032 + disk drive model 
8050 of wat daar compatibel mee is. C. 
van Benthum, Burg. van Hultenstraat 7, 
5443 AP Haps, tel. (tijdens kantooruren) 
040-762888. 


* Voor CBM-64: disk drive 1541 en 
grafische printer (bijv. DCS-64 of 
MPS-801 of MPS 803). Schrijf naar: D. 
Cras, Van Ostadelaan 4, 3723 BZ 
Bilthoven. 


PET-Benelux Exchange 
Secretariaat: Copytronics, 
Postbus 700, 7400 AS Deven- 
ter, tel. 05759-2211 

Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeist: tel. 05759-211 
Afdeling Nijmegen: tel. 
05759-2211 

Afdeling Haaksbergen: tel. 
053-7664444 

Service Reparatie Centrum voor 
PET-leden: tel. 053-766444. 
Algemene bijeenkomsten: 
Afdeling Zeist: eerste zaterdag 
van de maand 

Afdeling Nijmegen: tweede za- 
terdag van de maand 

Afdeling Haaksbergen: derde 
zaterdag van de maand 


HCC-Commodore-COMPET gebrui- 
kersgroep 

Secretariaat: J.J. van Douwen, 
Couwenhoven 1203, 3703 VB 
Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 19/1, 23/3, 
8/6, 21/9 en 30/11 
Waddinxveen: zaterdag 23/2, 
27/4, 6/7, 26/10 en 21/12. 


IK ZOEK HARDWARE EN SOFTWARE 


* Vic-20 hard/software. Omschr. en 
prijsopg. naar: |. Witte, Peerlkamplaan 3, 
1217 AT Hilversum. 


IK ZOEK SOFTWARE 


* Wie heeft v. mijn Commodore 64 een 
progr. voor het bijhouden van bowling 
scores? Tegen verg. H. van Balen, Jan 
van Houtstraat 112, 2581 TA Den Haag. 
Tel. 070-501235. 


* Beginner zoekt softw. v. CBM 64. 
Schrijf of bel naar W. van Eck, Ged. 
Binnengracht 58, 3441 AH Woerden, tel. 
na 6u 03480-19201. 


* Wie kan mij helpen aan een goede 
database, bijv. Superbase 64, evt. tegen 
bet.? Tevens div. serieuze softw, evt. 
ruilen. Erig Terra, Van Riellaan 29, 3571 
WB Utrecht. 


* CBM-64: Viditel-progr. met 
Telesoftware. Tel. 04163-72815. 


* Ik ben op zoek naar redel. profess. 
softw. voor de Commodore 64. Ben 
bereid een redel. verg. te geven. Tel. na 
18u 02284-1611. 


* Wie heeft C-16 softw, alleen op 
cassette (geen spel), en Ned. 
gebruiksaanw.? Aanb. + prijsopg. naar C. 
Nijpels, Atoomstraat 13, 6227 Cm 
Maastricht. 


* Wie heeft voor mij progr. voor de 
C-64? Graag uitgeprint. P. Nijsen, 
Neptunusstraat 13, 1223 HJ Hilversum. 








